home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb4.arc / SAFEWRIT.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-30  |  1KB  |  38 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5. driver for procedure SAFEWRITE--writes any file to screen even if it contains
  6. control characters.  Input a filename (try with .COM and .EXE files), output
  7. to screen a "safe" version of that file.
  8. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
  9. type
  10.   old_filename_type = string[14];  {This type declaration is NOT inside the
  11.                                    INCLUDE file in order to avoid multiple
  12.                                    declarations}
  13.  
  14.   filename_type = string[14];
  15. {$I existfil.lib}
  16. {$I safewrit.lib}
  17.  
  18. var
  19.   File_to_show : filename_type;
  20.   File_itself  : file of byte;
  21.   one_byte     : byte;
  22. begin
  23.   Write('Enter name of file: ');
  24.   Read(file_to_show);
  25.   ClrScr;
  26.   if exists(file_to_show) then
  27.     begin
  28.       Assign(file_itself,file_to_show);
  29.       reset(file_itself);
  30.       while not EOF(file_itself) do
  31.         begin
  32.           read(file_itself,one_byte);
  33.           safeWrite(one_byte);
  34.         end;
  35.       close(file_itself);
  36.     end
  37.   else WriteLn(file_to_show,' does not exist.');
  38. end.